home *** CD-ROM | disk | FTP | other *** search
/ Solaris Press Kit / Solaris Press Kit.iso / mac / Media / Solaris.dxr / Internal_60_save Icons.ls < prev    next >
Encoding:
Text File  |  2002-10-23  |  1.4 KB  |  47 lines
  1. global gbPC, gRootPath, gPicNo
  2.  
  3. on mouseUp me
  4.   setCursorWait()
  5.   updateStage()
  6.   fxObj = xtra("FileXtra3").new()
  7.   if gbPC then
  8.     dtPath = fxObj.fx_FolderGetSpecialPath("CSIDL_DESKTOPDIRECTORY")
  9.   else
  10.     dtPath = fxObj.fx_FolderGetSpecialPath("kDesktopFolderType")
  11.   end if
  12.   if dtPath = EMPTY then
  13.     alert("Error finding desktop folder" & RETURN & "Error:" && fxObj.fx_ErrorNumber() & RETURN & fxObj.fx_ErrorString())
  14.     fxObj = 0
  15.     exit
  16.   end if
  17.   DestFolder = dtPath & "Blood_Work"
  18.   if not fxObj.fx_FolderExists("destFolder") then
  19.     res = fxObj.fx_FolderCreate(DestFolder)
  20.     if res = 0 then
  21.       alert("Error creating folder on desktop" & RETURN & "Error:" && fxObj.fx_ErrorNumber() & RETURN & fxObj.fx_ErrorString())
  22.       fxObj = 0
  23.       exit
  24.     end if
  25.   end if
  26.   if gbPC then
  27.     SrcPath = gRootPath & "Icons\buddyicons.zip"
  28.     destPath = DestFolder & "\buddyicons.zip"
  29.   else
  30.     SrcPath = gRootPath & "Icons:buddyicons.sit"
  31.     destPath = DestFolder & ":buddyicons.sit"
  32.   end if
  33.   res = fxObj.fx_FileCopy(SrcPath, destPath)
  34.   if res = 0 then
  35.     alert("Error:" && fxObj.fx_ErrorNumber() & RETURN & fxObj.fx_ErrorString())
  36.     fxObj = 0
  37.     exit
  38.   end if
  39.   setCursorStop()
  40.   updateStage()
  41.   alertObj = new(xtra("MUI"))
  42.   alertInitList = [#Buttons: #Ok, #default: 1, #title: "Download", #Message: "You Got'em!", #movable: 1]
  43.   if objectp(alertObj) then
  44.     result = alert(alertObj, alertInitList)
  45.   end if
  46. end
  47.